DIM A, B, T, M, R AS INTEGER

A = -20: B = 20

M = A: R = F(A)

FOR T = A TO B

    IF F(T) < R THEN

        M = T

        R = F(T)

    END IF

NEXT T

PRINT M

FUNCTION F(x)

    F = 19*(x-19)*(x+17)+17;

END FUNCTION

var a,b,t,M,R :integer;

Function F(x: integer):integer;

  begin

     F:= 19*(x-19)*(x+17)+17;

  end;

BEGIN

   a:= -20; b:= 20;

   M:= a; R:= F(a);

   for t:= a to b do begin

      if (F(t)<R) then begin

         M:= t;

         R:= F(t);

      end;

   end;

   write(M);

END.

#include<stdio.h>

 int F(int x)

 {

    return 19*(x-19)*(x+17)+17;

 }

 void main()

 {

    int a, b, t, M, R;

    a = -20; b = 20;

    M = a; R = F(a);

    for (t=a; t<=b; t++){

        if (F(t)<R) {

            M = t; R = F(t);

        }

    }

    printf("%d", M);

 }

алг

нач

  цел a, b, t, R, M

  a:= -20; b:= 20

  M:= a; R:= F(a)

  нцдля t от a до b

      если F(t)< R

          то

              M := t; R := F(t)

      все

  кц

  вывод M

кон

алг цел F(цел x)

нач

   знач := 19*(x-19)*(x+17)+17

кон